Option Strict Off
Option Explicit On
Namespace BMLERP
	Friend Class frmBBL_ConvOrdInv
		Inherits System.Windows.Forms.Form
		Dim ssql As String



		Private Sub cmdconvert_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdconvert.Click
			On Error GoTo Check_Err
			If cboIssNo.CtlText = "" Then
				MsgBox(" IssueNo is Empty...!, Enter Value", MsgBoxStyle.Critical, "Warning")
				Exit Sub
			Else
				Call BBL510((cboIssNo.CtlText), (txtInvNO.Text))
				Adodc1.Refresh()
				cboIssNo.CtlText = ""
			End If
Check_next:
			Exit Sub
Check_Err:
			MsgBox("Convert error: " & Err.Description)
			Resume Check_next
		End Sub

		Private Sub cmdExit_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdexit.Click
			Me.Close()
		End Sub
		Private Sub frmBBL_ConvOrdInv_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
			ssql = ""
			ssql = "SELECT distinct dbo.ECH.EHODN as Issue " & "FROM dbo.ECL INNER JOIN dbo.ECH ON dbo.ECL.ELODN = dbo.ECH.EHODN " & "WHERE     (dbo.ECL.ELSTT = '3')"
			Adodc1.ConnectionString = ConnectString
			Adodc1.CommandTimeout = 10
			Adodc1.CommandType = ADODB.CommandTypeEnum.adCmdText
			Adodc1.RecordSource = ssql
			Adodc1.Refresh()
			cboIssNo.RowSource = Adodc1
		End Sub
	End Class
End Namespace